home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / ERREX1.f < prev    next >
Text File  |  1992-07-31  |  649b  |  18 lines
  1.       SUBROUTINE ERREX1 
  2. *-----------------------------------------------------------------------
  3. *   
  4. *--- error exit and stop when name buffer overflow  
  5. *   
  6. *-----------------------------------------------------------------------
  7.       include 'PARAM.h' 
  8.       N=MXNAME  
  9.       WRITE (MPUNIT,10000) N
  10.       STOP  
  11. 10000 FORMAT (//' ++++++++++++++++++++++++++++++++++++++++'/
  12.      +' +                                      +'/  
  13.      +' +      NAME BUFFER OVERFLOW, STOP      +'/  
  14.      +' +      ACTUAL SIZE =',I5,T41,'+'/   
  15.      +' +                                      +'/  
  16.      +' ++++++++++++++++++++++++++++++++++++++++')  
  17.       END   
  18.